home *** CD-ROM | disk | FTP | other *** search
/ Mystique of the Orient 2 / Mystique of the Orient 2.iso / mac / PC / SAMPLER / SAMPLER.rsrc / BITD_1047.bin (.txt) < prev    next >
AmigaBASIC Source Code  |  1994-06-17  |  987b  |  18 lines
  1.                                                                                                                                                                                                                                                    RND<0x56>XORONON                                                                                                                                                                          =
  2. <0x06><0x7e>ONNEXT<0x14916d8>NEXTONON<0xaf,0xfffffffb>-
  3. 170NEXTNEXT<0x14916e4>NEXTNEXTCHR$NEXTCHR$NEXTNEXT~NEXTNEXTONONAND
  4. 0ONONNEXTCHR$ONNEXTCHR$NEXTNEXT<0x14916fd>NEXTCDBLLOGMKS$~~NEXTMKS$
  5. NEXTEQV
  6.  
  7. OPEN<0x7d>ON0NEXTNEXTCINTNEXTCHR$<0x1491714>CDBLLOF~CDBLLOFMKS$CDBLMKS$~<0x149171e>CDBLNEXTMOD
  8. 6ONRETURNONNEXTONON<0x149172a>MKS$~LOFCDBL~CDBLMKS$~CHR$CDBLLOG~CDBLCDBLNEXT~CHR$<0xaf,0xfffffffb><0x7e>ON5NEXTCHR$NEXTNEXTCDBL~CDBL~LOFCDBL~LOFMKS$~LOFCDBLCDBLLOFCDBL~~<0x1491756>NEXT<0xaf,0xfffffffb>&Hf1aaONNEXTCHR$LOGCDBLCHR$LOFCHR$~MKS$~<0x0d>CHR$MKS$CHR$~MKS$CDBLLOF~CHR$~<0x1491773>~CHR$NEXT<0xaf,0xfffffffb>labelfffff4b1NEXT<0x7e>CHR$5                                                                                                                                                                  ~NEXTCHR$LOF<0x14917b6>MKS$~CDBLCDBL~~CDBLCDBLZ~~CDBL~~ON<0x7c>
  9.  
  10. OPEN<0x7e>ON43433CDBLMKS$~NEXTLOGCHR$CDBL~CDBL~~MKS$<0xa8,0x00><0x14917e0>CDBL~<0x7d>
  11. ONOPENON<0x7e>NEXT ~NEXT~NEXT~CDBL~LOF~~MKS$CDBL~~``Z~Z~~[~CHR$XOR
  12. EQVOPENONONNEXTONNEXT32680~NEXTCDBLLOGMKS$CDBL~CDBL~`~CDBLZZ~ZZ~Z~`<0x1491826>ZON
  13. OPENRIGHT$<0x7e>ON169ONREM⌐⌐ä¿~~ä~ä~ZT·Z`~ZZà
  14. <0x56>ONONNEXTNEXTCHR$MKS$LOGCHR$MKS$NEXTCDBLCHR$~a~~                                                                                    6ZT6ZT<0x7d>Z0[Z6
  15. <0x7d>ONRIGHT$ONCINTONCHR$CHR$<0x14918a7>CHR$~<0x14918aa>ZCHR$<0x7d>Z<0x07>6606<6Z0<0x7e>6label615a6&H5b00RIGHT$<0x7d>ONCLOSEONONCINTNEXTCHR$<0x14918ca>CHR$<0x58,0xfffffffb><6Z66=a=Z6ZZ6Z`aa
  16. <0x50>RIGHT$CLOSEONCINTCINTCHR$<0x14918e7><0x14918e8>                                                                                                 ~6Z6Z6Z676aa66<<6<[aa
  17. RNDCLOSEONCINTABS<0x149193d>aa[a<0x7e>Z56Z660667aa66Z66CHR$[a<0x1491957>b
  18. OPENOPEN<0x7d>CINTlabel5b85a<0x7e>Z<0x0a>=Z660Z606Z77ZZ6[ZZaCHR$CINT